МІНІСТЕРСТВО ОСВІТИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА Кафедра АТ
ЗВІТ ДО ЛАБОРАТОРНОЇ РОБОТИ № 1 з курсу “Комп’ютерна графіка” на тему: “ПОБУДОВА ЕЛЕМЕНТАРНИХ ГЕОМЕТРИЧНИХ ЗОБРАЖЕНЬ В СЕРЕДОВИЩІ ТУРБО-ПАСКАЛЬ”  ЗАВДАННЯ 10 Побудувати коло, вписане в квадрат. Радіус кола дорівнює 80.   Блок-схема алгоритму
 Список ідентифікаторів констант, змінних, процедур і функцій INITGRAPH ( <драйвер>, <режим>, <шлях> ) – Процедура, яка встановлює графічний режим роботи адаптера GRAPHRESULT – Функція, яка повертає значення типу integer, в якому закодований результат останнього звертання до графічних процедур CLOSEGRAPH – Процедура, яка завершує роботу адаптера в графічному режимі і повертає текстовий режим. RACTANGLE (X1,Y1,X2,Y2) – Процедура,яка креслить прямокутник з вказаними координатами кутів; CIRCLE (X,Y,<радіус>) - Процедурака креслить коло, де X, Y - вирази типу integer, які визначають координати центру Gd – - змінна типу integer, яка визначає тип графічного драйвера Gm - - змінна типу integer, яка визначає тип графічного драйвера Текст програми Program Lab1; Uses graph,crt; Var Gd,Gm:integer; Begin Gd:=detect; Initgraph(Gd,Gm<”G:\Menchuk”); If GraphResult<>0 thenHat(1); circle(100,100,80); rectangle(20,20,180,180); repeat until keypressed; closegraph; end. Результат виконня рограми